home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_d / subdatab.zip / D1UNIT1.DFM / D1UNIT1.txt
Text File  |  1996-04-02  |  2KB  |  132 lines
  1. object Form1: TForm1
  2.   Left = 136
  3.   Top = 109
  4.   Width = 496
  5.   Height = 375
  6.   Caption = 'SUBDatabase Demo1'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   Position = poScreenCenter
  13.   OnCreate = FormCreate
  14.   OnDestroy = FormDestroy
  15.   TextHeight = 16
  16.   object Button1: TButton
  17.     Left = 16
  18.     Top = 216
  19.     Width = 80
  20.     Height = 33
  21.     Caption = 'prev'
  22.     TabOrder = 0
  23.     OnClick = Button_upClick
  24.   end
  25.   object Button2: TButton
  26.     Left = 248
  27.     Top = 216
  28.     Width = 80
  29.     Height = 33
  30.     Caption = 'next'
  31.     TabOrder = 1
  32.     OnClick = Button_downClick
  33.   end
  34.   object Panel1: TPanel
  35.     Left = 16
  36.     Top = 264
  37.     Width = 313
  38.     Height = 25
  39.     TabOrder = 2
  40.   end
  41.   object Panel2: TPanel
  42.     Left = 16
  43.     Top = 304
  44.     Width = 313
  45.     Height = 25
  46.     TabOrder = 3
  47.   end
  48.   object Panel3: TPanel
  49.     Left = 8
  50.     Top = 8
  51.     Width = 321
  52.     Height = 201
  53.     TabOrder = 4
  54.     object Image1: TImage
  55.       Left = 1
  56.       Top = 1
  57.       Width = 319
  58.       Height = 199
  59.       Align = alClient
  60.     end
  61.   end
  62.   object Panel4: TPanel
  63.     Left = 338
  64.     Top = 0
  65.     Width = 146
  66.     Height = 344
  67.     Align = alRight
  68.     TabOrder = 5
  69.     object BitBtn1: TBitBtn
  70.       Left = 24
  71.       Top = 288
  72.       Width = 97
  73.       Height = 33
  74.       Caption = '&Close'
  75.       TabOrder = 0
  76.       OnClick = BitBtn1Click
  77.       Kind = bkClose
  78.     end
  79.     object Button6: TButton
  80.       Left = 25
  81.       Top = 64
  82.       Width = 97
  83.       Height = 33
  84.       Caption = 'delete'
  85.       TabOrder = 1
  86.       OnClick = ButtondeleteClick
  87.     end
  88.     object Button7: TButton
  89.       Left = 25
  90.       Top = 16
  91.       Width = 97
  92.       Height = 33
  93.       Caption = 'add'
  94.       TabOrder = 2
  95.       OnClick = ButtonaddClick
  96.     end
  97.     object ButtonStatus: TButton
  98.       Left = 25
  99.       Top = 192
  100.       Width = 97
  101.       Height = 33
  102.       Caption = 'Status'
  103.       TabOrder = 3
  104.       OnClick = ButtonStatusClick
  105.     end
  106.     object ButtonReorg: TButton
  107.       Left = 25
  108.       Top = 240
  109.       Width = 97
  110.       Height = 33
  111.       Caption = 'Reorg'
  112.       TabOrder = 4
  113.       OnClick = ButtonReorgClick
  114.     end
  115.   end
  116.   object OpenDialog1: TOpenDialog
  117.     DefaultExt = 'bmp'
  118.     Filter = 'bmp-files|*.bmp|ico-files|*.ico'
  119.     Options = [ofAllowMultiSelect]
  120.     Left = 16
  121.     Top = 8
  122.   end
  123.   object SUBDataBase1: TSUBDataBase
  124.     DataBaseName = 'demo.sub'
  125.     Active = False
  126.     OnReorg = SUBDataBase1Reorg
  127.     OnCreate = SUBDataBase1Create
  128.     Left = 400
  129.     Top = 128
  130.   end
  131. end
  132.